home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / sch250.zip / DMMEMOF.PRG < prev    next >
Text File  |  1994-12-08  |  420b  |  17 lines
  1. *****
  2. * The UDF() function that controls the sample text editor
  3. * Do not assign MV variables within a memoedit()'s UDF()
  4. *****
  5. function dmmemof
  6.  
  7. *****
  8. * Remember, CUSTOM passes MVPARM1, MVPARM2 and MVPARM3
  9. *****
  10. setcursor(.f.)
  11. if mvparm1=0
  12.     say(24,45," [Line: "+trim(str(mvparm2,iif(mvparm2<100,2,3),0))+"] ")
  13.     say(24,57," [Column: "+trim(str(mvparm3,2,0))+"] ")
  14. endif
  15. setcursor(.t.)
  16. return .t.
  17.